Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Է¹ As Range
    
    Set Է¹ = Range("E4", Cells(Rows.Count, "B").End(xlUp).Offset(,3))

    With Calendar1
        
        If Not Intersect(Target, Է¹) Is Nothing Then
            .Value = Date
            .Top = Target.Top
            .Left = Target.Offset(, 1).Left + 5
            .Height = 100
            .Width = 150
            .Visible = True
        Else
            .Visible = False
        End If
    End With

End Sub
